perm filename PUPITS.FAI[PUP,MRC] blob sn#541321 filedate 1980-10-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE PUPITS PUP INPUT TEST
C00003 ENDMK
CāŠ—;
TITLE PUPITS PUP INPUT TEST

PUPTST:	RESET
	SETZB TOTAL			; INIT COUNT
	SETZM BADCOD
	SETZM BADSEQ
	INIT 17
	 SIXBIT/PUP/
	 0
	 JRST 4,.
	LOOKUP [300			; LCL SKT
		340			; FRN SKT
		302]			; FRN ADR (US)
	 JRST 4,.
PUPTS1:	IN PUPMSG
	 CAIA
	  JRST 4,.
	MOVE 1,PUPMSG+6
	CAME 1,[123456,,654320]
	 AOS BADCOD
	CAME PUPMSG+50
	 AOS BADSEQ
	AOS TOTAL
	MOVE PUPMSG+50			; GET COUNT
	ADDI 20				; EXPECT NEXT TO BE ONE GREATER
	JRST PUPTS1

TOTAL:	BLOCK 1
BADCOD:	BLOCK 1
BADSEQ:	BLOCK 1

PUPMSG:	BLOCK =150

END PUPTST